home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / mailmen.arc / XMASLAB.PRG < prev   
Encoding:
Text File  |  1991-01-10  |  2.5 KB  |  90 lines
  1. * XMASLAB.PRG PRINTS CHRISTMAS LABELS FOR MAILING LIST PROGRAM (C) COPYRIGHT
  2. * DECEMBER 3, 1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. ERASE
  5. STORE T TO BEVEL
  6. DO WHILE BEVEL
  7. STORE ' ' TO ANS1
  8. @ 10,5 say "Do you wish to print labels of friends or business (F or B) ?"
  9. @ 10,75 GET ANS1
  10. READ
  11. CLEAR GETS
  12.      IF !(ANS1) = 'F' .OR. !(ANS1) = 'B'
  13.      STORE F TO BEVEL
  14. ELSE
  15. ENDIF
  16. ENDDO
  17. ERASE
  18. @ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
  19. @ 12,5 SAY 'Press any key when ready'
  20. ?
  21. ?
  22. ?
  23. ?
  24. ?
  25. ?
  26. ?
  27. ?
  28. ?
  29. wait
  30. IF !(ANS1) = 'F'
  31.      USE MAIL
  32.      GO TOP
  33.      SET PRINT ON
  34.      ? CHR(15)
  35.      DO WHILE .NOT. EOF
  36.           IF FRIEND <> ' '
  37.                ? TRIM(FIRST), LAST
  38.                ? ADDR1
  39.                ? ADDR2
  40.                ? TRIM(CITY)-"," , STATE, ZIP
  41.                ?
  42.                ?
  43.           ENDIF
  44.           SKIP
  45.      ENDDO
  46.      ? CHR(18)
  47.      SET PRINT OFF
  48.      RETURN
  49. ENDIF
  50. IF !(ANS1) = 'B'
  51.      USE MAIL
  52.      GO TOP
  53.      SET PRINT ON
  54.      ? CHR(15)
  55.           DO WHILE .NOT. EOF
  56.             IF BUS:XMAS <> ' '
  57.               ? TRIM(FIRST), LAST
  58.               ? COMPANY
  59.               ? ADDR1
  60.               ? TRIM(CITY)-"," , STATE, ZIP
  61.               ?
  62.               ?
  63.             ENDIF
  64.             SKIP
  65.           ENDDO
  66.      ? CHR(18)
  67.      SET PRINT OFF
  68.      RETURN
  69. ENDIF
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.                
  79.                
  80.                
  81.                
  82.                
  83.                
  84.                             ENGINEER,PE                                                                                                                                                      GALBRO WOOD FLOORS            TONY                GALBRO                                                                          GLENDALE                 NY11379894-4276    381-0400              FLOORING, WOOD , IN
  85. IF !(ANS1) = 'B'
  86.      USE MAIL
  87.      GO TOP
  88.      SET PRINT ON
  89.      ? CHR(15)
  90.           DO WHILE .NOT